// get CX_DB_UTILITY object
Var(dbUtil)
GetManager(OBJECT) Call(GetDBUtility) -> dbUtil
// show results of OSVERIFYDB.exe
"verify.log" dbUtil Call(ImportVerifyDBLog) FillObox(, objects)
// show corrupt objects found by CXCOSR.EXE -A ...
"errors.lst" [ 5, 6, 80 ] [ 285, 286 ] dbUtil Call(GetCorruptObjectsEx) FillObox(, objects)
. . .
ObjectList(objects, VIEW_ONLY, DRAG_COPY, ITEM(, 13), 1, 1, 100, 10)
[
Define(ErrorMsg)
dbUtil Call(ErrorMsg);
INITIALIZE: [ "CX_CLASS::call(ErrorMsg)" COLOR LIGHTRED ] SetFormat
[ "CX_CLASS::this" COLOR BLUE, 0 6 ] SetFormat
]
// show objects with checksum differences
Item("New Database")
[
SELECT: BeginTXN
"objects.new" 1 dbUtil Call(GetObjectsWithChecksumDifference) FillObox(, objects)
"Database (new)" PutValue(win)
]
Item("Old Database")
[
SELECT: BeginTXN
"objects.new" 0 dbUtil Call(GetObjectsWithChecksumDifference) FillObox(, objects)
"Database (old)" PutValue(win)
]
. . .
ObjectList(objects, AUTO_POSITION, VIEW_ONLY, DRAG_COPY, 1, 1, 100, 10)
[
DOUBLE_CLICK: // show detailed checksum for every data field
GetObject SendMsg(VIEW_DETAILS)
]
ObjectList(details, AUTO_POSITION, VIEW_ONLY, ACCEPT_DROP, 1, 1, 100, 10)
[
VIEW_DEAILS: ClearObox
dbUtil Call(CheckSum) FillObox
]
// remove object from root entry point collection / salesCondition(set)
Var(tmp)
"salesCondition" -> tmp
tmp "<0| 214 | 1162c>" GrabObject test Call(RemoveFromREPCollection)